load Libraries

library(plotly)
plot_ly(z = volcano, type = "surface")

Animated 3D chart

head(economics)
plot_ly(economics, x =~date, col = I("black"))%>%
            add_lines(y = ~uempmed)%>%
            add_lines(y = ~psavert, color = I("green"))
LS0tCnRpdGxlOiAiM0QgcGxvdCIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpsb2FkIExpYnJhcmllcwpgYGB7cn0KbGlicmFyeShwbG90bHkpCmBgYAoKYGBge3J9CnBsb3RfbHkoeiA9IHZvbGNhbm8sIHR5cGUgPSAic3VyZmFjZSIpCmBgYAoKQW5pbWF0ZWQgM0QgY2hhcnQKYGBge3J9CmhlYWQoZWNvbm9taWNzKQpgYGAKCmBgYHtyIHdhcm5pbmc9RkFMU0V9CnBsb3RfbHkoZWNvbm9taWNzLCB4ID1+ZGF0ZSwgY29sID0gSSgiYmxhY2siKSklPiUKICAgICAgICAgICAgYWRkX2xpbmVzKHkgPSB+dWVtcG1lZCklPiUKICAgICAgICAgICAgYWRkX2xpbmVzKHkgPSB+cHNhdmVydCwgY29sb3IgPSBJKCJncmVlbiIpKQpgYGAK